home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Updates⁄New / Learning Math™ / background_2630.txt < prev    next >
Encoding:
Text File  |  1988-05-26  |  4.7 KB  |  211 lines
  1. -- background: 2630 from stack: in
  2. -- bmap block id: 2967
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0002
  11. -- rect: left=49 top=94 right=139 bottom=166
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 229
  16. -- text size: 36
  17. -- style flags: 0
  18. -- line height: 48
  19. -- part name: 
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put 1 into field id 1
  23.   put 1 into field id 2
  24.   put 1 into field id 3
  25. end mouseUp
  26.  
  27.  
  28. -- part 2 (field)
  29. -- low flags: 01
  30. -- high flags: 0002
  31. -- rect: left=196 top=94 right=139 bottom=310
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 229
  36. -- text size: 36
  37. -- style flags: 0
  38. -- line height: 48
  39. -- part name: 
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   put 0 into field id 1
  43.   put 1 into field id 2
  44.   put 0 into field id 3
  45. end mouseUp
  46.  
  47.  
  48. -- part 3 (field)
  49. -- low flags: 01
  50. -- high flags: 0002
  51. -- rect: left=344 top=94 right=139 bottom=465
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 229
  56. -- text size: 36
  57. -- style flags: 0
  58. -- line height: 48
  59. -- part name: 
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   beep 1
  63.   put 24 into field id 1
  64.   put 23 into field id 2
  65.   get field id 1
  66.   multiply it by field id 2
  67.   put it into field id 3
  68.   beep 1
  69.   show card field id 7
  70.   wait 5 seconds
  71.   hide card field id 7
  72. end mouseUp
  73.  
  74.  
  75.  
  76. -- part 8 (button)
  77. -- low flags: 00
  78. -- high flags: A003
  79. -- rect: left=11 top=289 right=313 bottom=160
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: NewSetOfEquations
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   hide bkgnd button id 8
  91.   ask "How many equations would you like to learn ?" with 25
  92.   put it into howManyEquations
  93.   if it >=100 then
  94.     play boing
  95.     put 25 into howManyEquations
  96.   else
  97.     if it <=100 then
  98.       put it into howManyEquations
  99.     end if
  100.   end if
  101.   ask "At what time sec-interval would you like to view them ?" with 3
  102.   put it into viewTime
  103.   if it >=10 then
  104.     play boing
  105.     put "Much too slow for proper sub-conscience impressions"
  106.     wait 1 sec
  107.     put 3 into viewTime
  108.   else
  109.     if it <=9 then
  110.       put it into viewTime
  111.     end if
  112.   end if
  113.   repeat with x = 1 to howManyEquations
  114.     repeat x times
  115.       put the random of 25 into field id 1
  116.       put the random of 25 into field id 2
  117.       get field id 1
  118.       multiply it by field id 2
  119.       put it into field id 3
  120.       wait viewTime seconds
  121.     end repeat
  122.   end repeat
  123.   show bkgnd button id 8
  124. end mouseUp
  125.  
  126.  
  127.  
  128. -- part 9 (button)
  129. -- low flags: 80
  130. -- high flags: A003
  131. -- rect: left=176 top=289 right=313 bottom=325
  132. -- title width / last selected line: 0
  133. -- icon id / first selected line: 0 / 0
  134. -- text alignment: 1
  135. -- font id: 0
  136. -- text size: 12
  137. -- style flags: 0
  138. -- line height: 16
  139. -- part name: Clear the Set
  140. ----- HyperTalk script -----
  141. on mouseUp
  142.   answer "Do you really want to delete all " & the number of cards - 1 & " cards?" with Cancel or Yes
  143.   if it is "Cancel" then exit mouseUp
  144.   set cursor to 4 -- wristwatch
  145.   go to first card
  146.   repeat for the number of cards
  147.     if the short name of this card is "About"
  148.     then go to next card
  149.   else doMenu "Delete Card"
  150. end repeat
  151. set userlevel to 5
  152. doMenu "Compact Stack"
  153. set userlevel to 2
  154. set cursor to 1 -- browse tool
  155. end mouseUp
  156.  
  157.  
  158.  
  159. -- part 10 (button)
  160. -- low flags: 80
  161. -- high flags: A003
  162. -- rect: left=342 top=289 right=313 bottom=491
  163. -- title width / last selected line: 0
  164. -- icon id / first selected line: 0 / 0
  165. -- text alignment: 1
  166. -- font id: 0
  167. -- text size: 12
  168. -- style flags: 0
  169. -- line height: 16
  170. -- part name: The Tables
  171. ----- HyperTalk script -----
  172. on mouseUp
  173.   show card field id 3
  174.   wait 2 seconds
  175.   hide card field id 3
  176.   put empty into field id 1
  177.   put empty into field id 2
  178.   put empty into field id 3
  179.   ask "What number do you want to begin with?" with 1
  180.   put it into field id 2
  181.   ask "How many tables would you like?" with 1
  182.   put it into numberTables
  183.   put 0 into holder
  184.   repeat until numberTables = holder
  185.     if field id 1 is empty then put 1 into field id 1
  186.     get field id 1
  187.     multiply it by field id 2
  188.     put it into field id 3
  189.     wait 2 seconds
  190.     put field id 1 into temp1
  191.     put field id 2 into temp2
  192.     add 1 to temp1
  193.     if field id 1 >= 25 then
  194.       add 1 to holder
  195.       add 1 to temp2
  196.       put 1 into temp1
  197.       doMenu "New Card"
  198.       put temp1 into field id 1
  199.       put temp2 into field id 2
  200.       next repeat
  201.     else
  202.       doMenu "New Card"
  203.       put temp1 into field id 1
  204.       put temp2 into field id 2
  205.       next repeat
  206.     end if
  207.   end repeat
  208.   doMenu "Delete Card"
  209. end mouseUp
  210.  
  211.